home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.GOLDEN.WEST.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  40 lines

  1. 10  REM  ADVERTISING DISK CREATED FOR
  2. 20  REM  GOLEDEN WEST SYSTEMS
  3. 30  REM  BY JON MORGAN CUSTOM PROGRAMING
  4. 40  REM  P O BOX 1033
  5. 50  REM  PORTERVILLE, CA  93258
  6. 60  POKE 1010,102: POKE 1011,213: POKE 1012,112: HOME : PRINT : PRINT : HTAB 5: PRINT "WELCOME TO GOLDEN WEST SYSTEMS"
  7. 65  PRINT : PRINT : PRINT "RICK AND THE GANG AT G.W.S. WOULD LIKE": PRINT "TO INTRODUCE YOU ALL TO THE WORLD OF"
  8. 70  PRINT : HTAB 16: FLASH : PRINT "FRIENDLY": NORMAL : PRINT : PRINT "MAIL ORDER! WE STRIVE TO GIVE YOU THE": PRINT "FASTEST, MOST COURTEOUS SERVICE IN THE"
  9. 80  PRINT "COMPUTER EQUIPEMENT SUPPLY FIELD."
  10. 90  PRINT : PRINT : PRINT "GOLDEN WEST SYSTEMS HAS ALL SORTS OF": PRINT "HARDWARE FOR YOUR APPLE ]";: PRINT  CHR$(219);: PRINT " COMPUTER"
  11. 100  PRINT "AT DISCOUNT PRICES. WE ACCEPT CHECKS,": PRINT "MASTER CHARGE AND VISA AS WELL AS": PRINT "PURCHASE ORDERS FROM MOST INSTITUTIONS": PRINT "OF LEARNING."
  12. 110  PRINT : FLASH : HTAB 7: INPUT "PRESS RETURN FOR PRICE LIST";A$: HOME 
  13. 115  PRINT : PRINT : PRINT : PRINT : HTAB 4: FLASH : PRINT "J-CAT MODEM BY NOVATION...$109.00": NORMAL 
  14. 120  PRINT : PRINT : PRINT "    THE FIRST ITEM ON OUR DISK LIST": PRINT "IS THE J-CAT MODEM FROM NOVATION. IT"
  15. 130  PRINT "IS AUTO-ANSWER AND COMPATIBLE WITH": PRINT "MOST TERMINAL PACKAGES. THIS LITTLE": PRINT "BEAUTY PLUGS INTO ANY RS-232 SERIAL"
  16. 140  PRINT "CARD. IT'S SO SIMPLE TO OPERATE EVEN": PRINT "THE BOSS CAN USE IT! (WE ONLY HAD": PRINT "TO SHOW HIM ONCE!) OUR SPECIAL SOFTDISK": PRINT "PRICE IS ONLY $109.00!!! THAT'S $10.00"
  17. 150  PRINT "OFF OUR REGUALR LOW PRICE. JUST SAY": PRINT "YOU SAW IT ON SOFTDISK!": PRINT : PRINT : HTAB 4: INVERSE : PRINT "J-CAT MODEM BY NOVATION...$109.00": NORMAL 
  18. 155  PRINT : HTAB 5: INPUT "HIT RETURN FOR MORE GOODIES!!!";A$
  19. 160  HOME : PRINT : PRINT : PRINT : PRINT : FLASH : HTAB 5: PRINT "QUENTIN DISK DRIVES...$249.00": NORMAL 
  20. 170  PRINT : PRINT : PRINT "    WE THINK THAT QUENTIN DRIVES ARE": PRINT "ABOUT THE BEST DRIVE YOU CAN GET FOR": PRINT "YOUR MONEY. THEY ARE 40 TRACK, AS"
  21. 180  PRINT "QUIET AS A WHISPER AND USE THE LEAD": PRINT "SCREW SYSTEM TO POSITION THE READ/": PRINT "WRITE HEAD. MOST PEOPLE END UP USING": PRINT "THEM AS DRIVE ONE! FOR ONLY $249.00 A"
  22. 190  PRINT "CRACK, YOU CAN'T GO WRONG ON THIS": PRINT "DRIVE!": PRINT : PRINT : PRINT : HTAB 5: INVERSE : PRINT "QUENTIN DISK DRIVES...$249.00": NORMAL 
  23. 200  PRINT : PRINT : HTAB 6: INPUT "HIT RETURN FOR A REAL DEAL!";A$
  24. 210  HOME : PRINT : PRINT : PRINT : HTAB 5: FLASH : PRINT "PROWRITER PRINTERS...$359.00": NORMAL : PRINT : PRINT : PRINT "    THAT'S RIGHT, THE FAMOUS PROWRITER"
  25. 220  PRINT "PRINTER IS OUR OTHER SOFTDISK SPECIAL.": PRINT "OUR REGULAR PRICE IS $375.00. BECAUSE": PRINT "THIS IS SUCH A GOOD PRICE FOR THIS"
  26. 225  PRINT "OUTSTANDING CORRESPONDENCE QUALITY,": PRINT "120CPS PRINTER WE MUST ASK THAT YOU SAY": PRINT "THAT YOU SAW IT ON SOFTDISK OR WE WON'T"
  27. 228  PRINT "BELIEVE A WORD YOU SAY!"
  28. 230  PRINT : PRINT : HTAB 5: INVERSE : PRINT "PROWRITER PRINTER...$359.00": PRINT : PRINT : NORMAL : HTAB 5: INPUT "HIT RETURN FOR EVEN MORE!!!";A$
  29. 240  HOME : PRINT : PRINT : PRINT : HTAB 5: FLASH : PRINT "ELEPHANT DISKS ONLY $1.80 EACH*": NORMAL : PRINT : PRINT : PRINT "    CAN YOU BELIEVE IT? ONLY $1.80 PER"
  30. 250  PRINT "ELEPHANT DISK ON LOTS OF 100 OR MORE.": PRINT "MANY PEOPLE THINK THAT THE ELEPHANT IS": PRINT "THE BEST DISK ON THE MARKET. LET'S"
  31. 260  PRINT "JUST SAY THAT WE HAVE NEVER HAD A BAD": PRINT "ONE YET, AND WE USE A LOT OF DISKS! BUT": PRINT "REMEMBER, ONLY IN LOTS OF 100 OR MORE!"
  32. 270  PRINT : PRINT : INVERSE : HTAB 5: PRINT "ELEPHANT DISKS ONLY 1.80 EACH*": NORMAL : PRINT : PRINT : HTAB 8: INPUT "HIT RETURN ONE MORE TIME";A$
  33. 400  HOME : PRINT : PRINT "    THAT JUST ABOUT COVERS THIS ISSUE.": PRINT "TO ORDER SIMPLY WRITE TO:": PRINT 
  34. 410  HTAB 10: PRINT "GOLDEN WEST SYSTEMS": HTAB 10: PRINT "31942 OAK HILL LANE": HTAB 10: PRINT "PORTERVILLE, CA  93257": PRINT 
  35. 420  HTAB 15: PRINT "OR PHONE:": HTAB 13: PRINT "(209)539 - 2107": PRINT : PRINT " CALL  OR WRITE TO  GET  ON OUR MAILING"
  36. 425  PRINT "LIST IF YOU ARE FEELING POOR RIGHT NOW."
  37. 430  PRINT "WE HAVE MANY MORE ITEMS THAN WE COULD": PRINT "EVEN BEGIN TO LIST HERE. MAYBE WE": PRINT "CAN TEMPT YOU WITH SOMETHING ELSE?"
  38. 440  PRINT : PRINT "MOST ITEMS IN STOCK AND SHIPPED IN": PRINT "24 HOURS. ADD $2.50 SHIPPING FOR FIRST": PRINT "5 POUNDS. STANDARD RATES ABOVE 5 POUNDS."
  39. 450  FLASH : HTAB 8: PRINT "THANKS FOR YOUR ORDER!!!": POKE 1010,0: POKE 1011,151: POKE 1012,50: NORMAL 
  40. 460  HTAB 6: INPUT "HIT RETURN TO RETURN TO MENU";A$: PRINT  CHR$(4);"RUN AD.MENU"